0 REM ------KHT-SPRITEDIT05------ 1 Q=PEEK(820):ONQGOTO3,4:D$="DATA[155]":K$="[157],":GOTO600 2 POKE820,1:LIST49-70 3 POKE820,2:GOTO100 4 GOTO410 9 OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(30):CLOSE5:CLOSE4:END 10 DATA 0, 0, 0 11 DATA 0, 0, 0 12 DATA 0, 0, 0 13 DATA 0, 0, 0 14 DATA 0, 0, 0 15 DATA 0, 0, 0 16 DATA 0, 0, 0 17 DATA 0, 0, 0 18 DATA 0, 0, 0 19 DATA 0, 0, 0 20 DATA 0, 0, 0 21 DATA 0, 0, 0 22 DATA 0, 0, 0 23 DATA 0, 0, 0 24 DATA 0, 0, 0 25 DATA 0, 0, 0 26 DATA 0, 0, 0 27 DATA 0, 0, 0 28 DATA 0, 0, 0 29 DATA 0, 0, 0 30 DATA 0, 0, 0 49 REM 765432107654321076543210 50 DATA ........................ 51 DATA ........................ 52 DATA ........................ 53 DATA ........................ 54 DATA ........................ 55 DATA ........................ 56 DATA ........................ 57 DATA ........................ 58 DATA ........................ 59 DATA ........................ 60 DATA ........................ 61 DATA ........................ 62 DATA ........................ 63 DATA ........................ 64 DATA ........................ 65 DATA ........................ 66 DATA ........................ 67 DATA ........................ 68 DATA ........................ 69 DATA ........................ 70 DATA ........................ 100 FORI=0TO62:READD:NEXT 110 D$="DATA[155]":K$="[157]," 200 FORI=10TO30 210 PRINT"[152]"I;D$; 220 READA$ 230 FORJ=0TO2 240 B$=MID$(A$,8*J+1,8) 250 Z=0 260 FORK=1TO8 270 C$=MID$(B$,K,1) 280 IFC$="."THENZ=2*Z 290 IFC$="*"THENZ=2*Z+1 300 NEXT 302 IFJ=2THEN312 310 PRINTTAB(5*J+9)Z;K$;:NEXTJ 312 PRINTTAB(5*J+9)Z; 320 NEXTJ 330 PRINT 340 NEXTI 350 GOSUB380:STOP 380 PRINT" [158]ZEILEN- DANN 'RUN'" 382 PRINT" [152]NEUSTART [155]'GOTO 922'[145][145][145][152]":RETURN 400 REM ---DATEN IN SPEICHER?--- 410 PRINT"[147][152]DATEN IN DEN SPEICHER SETZEN ? <J[152]/N[152]>" 420 R$="":GETR$:IFR$<>"J"ANDR$<>"N"THEN420 422 IFR$="J"THEN430 429 GOTO900 430 PRINT"[152]AN WELCHEN SPRITE-SPEICHERPLATZ ?" 432 PRINT"ZAHL 13[152]-15[152] ODER 128[152]-255[152] EINGEBEN" 434 PRINT"AN SPRITESPEICHER: [158]";:POKE19,1:INPUTM0:POKE19,0:PRINT 436 M=M0*64 440 PRINT"[152]SOLLEN DIE DATEN AB SEICHERSTELLE" 442 PRINT"[157]"M"[152]IN DEN SPEICHER" 444 PRINT"EINGELESEN WERDEN? <J[152]/N[152]>" 446 R$="":GETR$:IFR$<>"J"ANDR$<>"N"THEN446 448 IFR$="J"THEN452 449 GOTO900 450 REM ---DATEN SPEICHERN--- 452 RESTORE 454 FORI=0TO62:READD:POKEM+I,D:NEXT 460 PRINT"[152]DIE DATEN SIND NUN GESPEICHERT !" 462 PRINT"[152]KONTROLLANSICHT? <J[152]/N[152]>" 464 R$="":GETR$:IFR$<>"J"ANDR$<>"N"THEN464 466 IFR$="J"THEN470 469 GOTO900 470 PRINT"[147]":FORI=0TO62STEP3 471 M1=PEEK(M+I):M2=PEEK(M+I+1):M3=PEEK(M+I+2) 472 PRINT"[152]"M+I"[155]"; 474 IFM1>99THEN478 475 IFM1>9THEN477 476 PRINT" "; 477 PRINT" "; 478 PRINTM1; 480 IFM2>99THEN484 481 IFM2>9THEN483 482 PRINT" "; 483 PRINT" "; 484 PRINTM2; 490 IFM3>99THEN494 491 IFM3>9THEN493 492 PRINT" "; 493 PRINT" "; 494 PRINTM3 496 NEXT 499 GOTO902 500 REM ---SPRITE-ANSICHT--- 502 PRINT"[147]":GOTO530 512 POKE2040,M0 514 POKE53248,32:POKE53264,1:REM X-POS 516 POKE53249,78:REM Y-POS 518 POKE53287,1:REM FARBE 520 POKE53271,1:POKE53277,1:REM GROESSER 522 POKE53269,1:REM EINSCHALTEN 524 RETURN 530 GOSUB512:POKE820,0:RUN 600 REM ---PROGRAMM-EINSTIEG--- 602 POKE53280,5:POKE53281,11:POKE646,12:POKE53269,0 604 PRINT"[147][158]SPRITE-EDITOR VON KAHATE[152]" 605 PRINT"[144] WEITER MIT [146][152]" 606 R$="":GETR$:IFR$<>CHR$(13)THEN606 608 PRINT"SPRITE N[152]EU EDITIEREN TASTE":PRINT"SPRITEDATEN A[152]NSEHEN?"; 610 PRINT" <N[152]/A[152]>" 612 R$="":GETR$:IFR$<>"N"ANDR$<>"A"THEN612 614 ON-(R$="N")-2*(R$="A")GOTO2,620 616 GOTO612 620 PRINT"[152]AN WELCHEM SPRITE-PLATZ" 622 PRINT"BEFINDEN SICH DIE DATEN?" 624 PRINT"ZAHL 13[152]-15[152] ODER 128[152]-255[152] EINGEBEN" 626 PRINT"SPRITESPEICHER-ZAHL: [158]";:POKE19,1:INPUTM0:POKE19,0:PRINT:M=M0*64 628 PRINT"[152]AUSWERTUNG DER SPRITEDATEN":PRINT"AB SPEICHERPLATZ:"M 630 PRINT"[152]UMRECHNUNG <U[152]> - ABBRUCH <A[152]>" 632 R$="":GETR$:IFR$<>"U"ANDR$<>"A"THEN632 634 ON-(R$="U")-2*(R$="A")GOTO650,900:GOTO632 640 M0$="":M0$=MID$(STR$(M0),2) 642 IFLEN(M0$)>=3THENRETURN 644 M0$=" "+M0$:GOTO642 650 POKE820,1:PRINT"[147][152]49 REM 765432107654321076543210" 652 GOSUB640:PRINT"[145][144]#[158]"M0$"[155]" 654 FORI=50TO70 656 B$=MID$(STR$(I),2)+CHR$(32) 658 B$=B$+D$+CHR$(32) 660 FORJ=0TO2 662 U=PEEK(M+(3*(I-50))+J) 664 V=128 666 FORK=0TO7 668 ONR1GOTO676 670 IFU>=VTHENU$=U$+"*":GOTO690 672 IFU=VTHENU$="*"+U$:GOTO690 678 IFU" 702 PRINTTAB(8)"AB SPEICHER W[152]EITER[145][145]" 704 GOSUB640:PRINTTAB(22)"[158]"M0$"[152][145]" 710 R$="":GETR$:IFR$="A"THEN800 712 ON-(R$="+")-2*(R$="-")GOTO830,840 714 ON-(R$="W")-2*(R$="N")GOTO720,922 716 GOTO710 720 PRINTTAB(8)" SPRITE GESPIEGELT NEU " 722 PRINTTAB(8)" UMRECHNEN? <J[152]/N[152]> [145][145]" 730 R$="":GETR$:IFR$<>"N"ANDR$<>"J"THEN730 732 ON-(R$="N")-2*(R$="J")GOTO740,742:GOTO730 740 R1=0:GOTO790 742 R1=1:GOTO650 790 GOSUB380:STOP 799 POKE198,0:WAIT198,1:STOP 800 GOSUB640:M=M0*64 802 M$="":M$=MID$(STR$(M),2) 804 IFLEN(M$)>=5THEN810 806 M$=" "+M$:GOTO804 810 PRINTTAB(20)"[158]"M$"[152][145][145]" 820 GOSUB512:GOTO704 830 M0=M0+1 832 IFM0>255THENM0=255 834 GOTO800 840 M0=M0-1 842 IFM0<0THENM0=0 844 GOTO800 900 PRINT"[147]"; 902 PRINT"[152]SPRITE-A[152]NSICHT PRG-N[152]EUSTART E[152]NDE?" 910 R$="":GETR$:IFR$<>"A"ANDR$<>"N"ANDR$<>"E"THEN910 912 IFR$="A"THEND$="DATA[155]":GOTO650 914 IFR$="N"THEN922 920 POKE820,0:POKE53280,14:POKE53281,6:POKE646,14:POKE53269,0:PRINT"[147]":END 922 POKE53269,0:POKE820,0:RUN